home *** CD-ROM | disk | FTP | other *** search
/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / prgtools / langs / clisp-c.zoo / defs1.fas < prev    next >
Encoding:
CLISP byte-compiled Lisp program  |  1993-06-05  |  22.9 KB  |  548 lines
  1. (SYSTEM::VERSION '(SYSTEM::CLISP2 14. LISP:T 210292.))
  2. #Y(#:TOP-LEVEL-FORM-1 #13Y(00 00 00 00 00 01 D4 36 02 30 07 19 01) "LISP")
  3. #Y(#:TOP-LEVEL-FORM-2 #13Y(00 00 00 00 00 01 D4 36 01 2F FF 19 01)
  4.    (DOSEQ DOHASH *DEFAULT-TIME-ZONE* DEFAULT-DIRECTORY DIR)
  5.   )
  6. #Y(#:TOP-LEVEL-FORM-3 #13Y(00 00 00 00 00 01 D4 36 02 30 07 19 01) "SYSTEM")
  7. #Y(#:TOP-LEVEL-FORM-4 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
  8.    COPY-SYMBOL REMOVE-OLD-DEFINITIONS
  9.    #Y(COPY-SYMBOL
  10.       #47Y(00 01 00 01 00 08 39 01 AA 6A A0 69 F3 8A 02 1C AB 84 53 06 A8 AC 69
  11.            51 2F 56 AB 84 54 06 A8 96 56 14 30 96 A8 AC 6A 9F 69 C7 30 9B 15 19
  12.            03
  13.   )  )    )
  14. #Y(#:TOP-LEVEL-FORM-5
  15.    #26Y(00 00 00 00 00 01 00 29 01 BE 0B 00 00 D5 2D 02 D5 A9 65 03 01 30 96 BF
  16.         19 02
  17.        )
  18.    0. GENTEMP REMOVE-OLD-DEFINITIONS
  19.    #Y(GENTEMP
  20.       #55Y(00 00 00 02 00 0C 37 02 02 BF EC 37 01 07 0E 02 EB 1A 02 16 02 61 00
  21.            00 30 AB 0C 00 00 AA 61 00 00 36 0B C1 EE 74 05 69 8A 6B 02 13 AA 2F
  22.            FC 3E 02 89 00 5F 93 19 05
  23.           )
  24.       NIL "T" *PACKAGE* 10.
  25.   )  )
  26. #Y(#:TOP-LEVEL-FORM-6
  27.    #18Y(00 00 00 00 00 01 D4 2D 01 D4 D6 C1 72 30 96 BE 19 01) DO-SYMBOLS
  28.    REMOVE-OLD-DEFINITIONS MACRO
  29.    #Y(DO-SYMBOLS
  30.       #141Y(00 01 00 01 00 08 39 01 AA 6A 63 D4 87 01 2D 80 5E 94 54 53 70 95
  31.             54 53 54 1B 80 58 C0 14 96 54 53 54 54 1B 80 56 00 14 97 54 71 A8
  32.             5B AF 2F 64 3E 02 89 00 80 4F 00 EA 36 01 6A A4 D8 5B D9 AB B1 73
  33.             02 73 01 D9 B3 C4 72 73 01 AF B5 DB DC DD B9 73 01 B5 B7 6B 02 20
  34.             6B 02 1F 73 02 B2 73 03 B5 73 03 6B 02 20 6B 02 1F 73 03 59 03 19
  35.             0A AA 2D 01 19 03 95 54 53 54 53 1A FF A1 96 54 53 54 54 53 1A FF
  36.             A2 D7 93 72 59 01 1A FF AA
  37.            )
  38.       2. MACRO-CALL-ERROR *PACKAGE* DECLARE BLOCK LET (NIL) MAP-SYMBOLS
  39.       FUNCTION LAMBDA
  40.   )  )
  41. #Y(#:TOP-LEVEL-FORM-7
  42.    #18Y(00 00 00 00 00 01 D4 2D 01 D4 D6 C1 72 30 96 BE 19 01)
  43.    DO-EXTERNAL-SYMBOLS REMOVE-OLD-DEFINITIONS MACRO
  44.    #Y(DO-EXTERNAL-SYMBOLS
  45.       #141Y(00 01 00 01 00 08 39 01 AA 6A 63 D4 87 01 2D 80 5E 94 54 53 70 95
  46.             54 53 54 1B 80 58 C0 14 96 54 53 54 54 1B 80 56 00 14 97 54 71 A8
  47.             5B AF 2F 64 3E 02 89 00 80 4F 00 EA 36 01 6A A4 D8 5B D9 AB B1 73
  48.             02 73 01 D9 B3 C4 72 73 01 AF B5 DB DC DD B9 73 01 B5 B7 6B 02 20
  49.             6B 02 1F 73 02 B2 73 03 B5 73 03 6B 02 20 6B 02 1F 73 03 59 03 19
  50.             0A AA 2D 01 19 03 95 54 53 54 53 1A FF A1 96 54 53 54 54 53 1A FF
  51.             A2 D7 93 72 59 01 1A FF AA
  52.            )
  53.       2. MACRO-CALL-ERROR *PACKAGE* DECLARE BLOCK LET (NIL)
  54.       MAP-EXTERNAL-SYMBOLS FUNCTION LAMBDA
  55.   )  )
  56. #Y(#:TOP-LEVEL-FORM-8
  57.    #18Y(00 00 00 00 00 01 D4 2D 01 D4 D6 C1 72 30 96 BE 19 01) DO-ALL-SYMBOLS
  58.    REMOVE-OLD-DEFINITIONS MACRO
  59.    #Y(DO-ALL-SYMBOLS
  60.       #105Y(00 01 00 01 00 08 39 01 AA 6A 63 D4 87 01 2D 80 44 94 54 53 70 95
  61.             54 53 54 1B 3F 00 14 96 54 71 A8 5B AE 2F 64 3E 02 89 00 38 00 EA
  62.             D7 5B D8 AF C3 72 73 01 AC B1 DA DB DC B5 73 01 B2 B4 6B 02 20 6B
  63.             02 1F 73 02 73 02 B2 73 03 6B 02 20 6B 02 1F 59 03 19 08 AA 2D 01
  64.             19 03 95 54 53 54 53 1A FF BA D6 93 72 59 01 1A 42
  65.            )
  66.       2. MACRO-CALL-ERROR DECLARE BLOCK LET (NIL) MAP-ALL-SYMBOLS FUNCTION
  67.       LAMBDA
  68.   )  )
  69. #Y(#:TOP-LEVEL-FORM-9
  70.    #20Y(00 00 00 00 00 01 D4 2F 5F D5 83 53 04 D5 5B 2F 56 BF 19 01)
  71.    (SPECIAL *MODULES*) *MODULES*
  72.   )
  73. #Y(#:TOP-LEVEL-FORM-10 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
  74.    PROVIDE REMOVE-OLD-DEFINITIONS
  75.    #Y(PROVIDE #20Y(00 01 00 00 00 02 A9 69 4E 63 00 D5 36 02 2F E0 0F 00 19 02)
  76.       *MODULES* #.#'STRING=
  77.   )  )
  78. #Y(#:TOP-LEVEL-FORM-11 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
  79.    REQUIRE REMOVE-OLD-DEFINITIONS
  80.    #Y(REQUIRE
  81.       #48Y(00 01 00 01 00 08 38 01 14 39 02 AB 69 4E 63 00 D5 36 02 83 DC 12 89
  82.            00 04 AB 78 0D 02 94 1F 0B 90 02 AB 31 00 17 19 04 00 19 04 AA 2D 02
  83.            19 04
  84.           )
  85.       *MODULES* #.#'STRING-EQUAL LOAD
  86.   )  )
  87. #Y(#:TOP-LEVEL-FORM-12
  88.    #26Y(00 00 00 00 00 01 D4 84 63 09 D5 D6 D4 D4 69 51 2B 04 03 D4 D8 30 97 BE
  89.         19 01
  90.        )
  91.    BOOLE-CLR "~S redefines the constant ~S. Its old value was ~S."
  92.    (DEFCONSTANT BOOLE-CLR 0.) WARN 0.
  93.   )
  94. #Y(#:TOP-LEVEL-FORM-13
  95.    #26Y(00 00 00 00 00 01 D4 84 63 09 D5 D6 D4 D4 69 51 2B 04 03 D4 D8 30 97 BE
  96.         19 01
  97.        )
  98.    BOOLE-SET "~S redefines the constant ~S. Its old value was ~S."
  99.    (DEFCONSTANT BOOLE-SET 15.) WARN 15.
  100.   )
  101. #Y(#:TOP-LEVEL-FORM-14
  102.    #26Y(00 00 00 00 00 01 D4 84 63 09 D5 D6 D4 D4 69 51 2B 04 03 D4 D8 30 97 BE
  103.         19 01
  104.        )
  105.    BOOLE-1 "~S redefines the constant ~S. Its old value was ~S."
  106.    (DEFCONSTANT BOOLE-1 10.) WARN 10.
  107.   )
  108. #Y(#:TOP-LEVEL-FORM-15
  109.    #26Y(00 00 00 00 00 01 D4 84 63 09 D5 D6 D4 D4 69 51 2B 04 03 D4 D8 30 97 BE
  110.         19 01
  111.        )
  112.    BOOLE-2 "~S redefines the constant ~S. Its old value was ~S."
  113.    (DEFCONSTANT BOOLE-2 12.) WARN 12.
  114.   )
  115. #Y(#:TOP-LEVEL-FORM-16
  116.    #26Y(00 00 00 00 00 01 D4 84 63 09 D5 D6 D4 D4 69 51 2B 04 03 D4 D8 30 97 BE
  117.         19 01
  118.        )
  119.    BOOLE-C1 "~S redefines the constant ~S. Its old value was ~S."
  120.    (DEFCONSTANT BOOLE-C1 5.) WARN 5.
  121.   )
  122. #Y(#:TOP-LEVEL-FORM-17
  123.    #26Y(00 00 00 00 00 01 D4 84 63 09 D5 D6 D4 D4 69 51 2B 04 03 D4 D8 30 97 BE
  124.         19 01
  125.        )
  126.    BOOLE-C2 "~S redefines the constant ~S. Its old value was ~S."
  127.    (DEFCONSTANT BOOLE-C2 3.) WARN 3.
  128.   )
  129. #Y(#:TOP-LEVEL-FORM-18
  130.    #26Y(00 00 00 00 00 01 D4 84 63 09 D5 D6 D4 D4 69 51 2B 04 03 D4 D8 30 97 BE
  131.         19 01
  132.        )
  133.    BOOLE-AND "~S redefines the constant ~S. Its old value was ~S."
  134.    (DEFCONSTANT BOOLE-AND 8.) WARN 8.
  135.   )
  136. #Y(#:TOP-LEVEL-FORM-19
  137.    #26Y(00 00 00 00 00 01 D4 84 63 09 D5 D6 D4 D4 69 51 2B 04 03 D4 D8 30 97 BE
  138.         19 01
  139.        )
  140.    BOOLE-IOR "~S redefines the constant ~S. Its old value was ~S."
  141.    (DEFCONSTANT BOOLE-IOR 14.) WARN 14.
  142.   )
  143. #Y(#:TOP-LEVEL-FORM-20
  144.    #26Y(00 00 00 00 00 01 D4 84 63 09 D5 D6 D4 D4 69 51 2B 04 03 D4 D8 30 97 BE
  145.         19 01
  146.        )
  147.    BOOLE-XOR "~S redefines the constant ~S. Its old value was ~S."
  148.    (DEFCONSTANT BOOLE-XOR 6.) WARN 6.
  149.   )
  150. #Y(#:TOP-LEVEL-FORM-21
  151.    #26Y(00 00 00 00 00 01 D4 84 63 09 D5 D6 D4 D4 69 51 2B 04 03 D4 D8 30 97 BE
  152.         19 01
  153.        )
  154.    BOOLE-EQV "~S redefines the constant ~S. Its old value was ~S."
  155.    (DEFCONSTANT BOOLE-EQV 9.) WARN 9.
  156.   )
  157. #Y(#:TOP-LEVEL-FORM-22
  158.    #26Y(00 00 00 00 00 01 D4 84 63 09 D5 D6 D4 D4 69 51 2B 04 03 D4 D8 30 97 BE
  159.         19 01
  160.        )
  161.    BOOLE-NAND "~S redefines the constant ~S. Its old value was ~S."
  162.    (DEFCONSTANT BOOLE-NAND 7.) WARN 7.
  163.   )
  164. #Y(#:TOP-LEVEL-FORM-23
  165.    #26Y(00 00 00 00 00 01 D4 84 63 09 D5 D6 D4 D4 69 51 2B 04 03 D4 D8 30 97 BE
  166.         19 01
  167.        )
  168.    BOOLE-NOR "~S redefines the constant ~S. Its old value was ~S."
  169.    (DEFCONSTANT BOOLE-NOR 1.) WARN 1.
  170.   )
  171. #Y(#:TOP-LEVEL-FORM-24
  172.    #26Y(00 00 00 00 00 01 D4 84 63 09 D5 D6 D4 D4 69 51 2B 04 03 D4 D8 30 97 BE
  173.         19 01
  174.        )
  175.    BOOLE-ANDC1 "~S redefines the constant ~S. Its old value was ~S."
  176.    (DEFCONSTANT BOOLE-ANDC1 4.) WARN 4.
  177.   )
  178. #Y(#:TOP-LEVEL-FORM-25
  179.    #26Y(00 00 00 00 00 01 D4 84 63 09 D5 D6 D4 D4 69 51 2B 04 03 D4 D8 30 97 BE
  180.         19 01
  181.        )
  182.    BOOLE-ANDC2 "~S redefines the constant ~S. Its old value was ~S."
  183.    (DEFCONSTANT BOOLE-ANDC2 2.) WARN 2.
  184.   )
  185. #Y(#:TOP-LEVEL-FORM-26
  186.    #26Y(00 00 00 00 00 01 D4 84 63 09 D5 D6 D4 D4 69 51 2B 04 03 D4 D8 30 97 BE
  187.         19 01
  188.        )
  189.    BOOLE-ORC1 "~S redefines the constant ~S. Its old value was ~S."
  190.    (DEFCONSTANT BOOLE-ORC1 13.) WARN 13.
  191.   )
  192. #Y(#:TOP-LEVEL-FORM-27
  193.    #26Y(00 00 00 00 00 01 D4 84 63 09 D5 D6 D4 D4 69 51 2B 04 03 D4 D8 30 97 BE
  194.         19 01
  195.        )
  196.    BOOLE-ORC2 "~S redefines the constant ~S. Its old value was ~S."
  197.    (DEFCONSTANT BOOLE-ORC2 11.) WARN 11.
  198.   )
  199. #Y(#:TOP-LEVEL-FORM-28 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
  200.    MAKE-BYTE REMOVE-OLD-DEFINITIONS
  201.    #Y(MAKE-BYTE
  202.       #20Y(00 00 00 00 80 1B 00 02 00 00 39 02 39 01 AA AA 30 E9 19 03) :SIZE
  203.       :POSITION
  204.   )  )
  205. #Y(#:TOP-LEVEL-FORM-29
  206.    #26Y(00 00 00 00 00 01 D4 84 63 09 D5 D6 D4 D4 69 51 2B 04 03 D4 D8 30 97 BE
  207.         19 01
  208.        )
  209.    CHAR-CODE-LIMIT "~S redefines the constant ~S. Its old value was ~S."
  210.    (DEFCONSTANT CHAR-CODE-LIMIT 256.) WARN 256.
  211.   )
  212. #Y(#:TOP-LEVEL-FORM-30
  213.    #26Y(00 00 00 00 00 01 D4 84 63 09 D5 D6 D4 D4 69 51 2B 04 03 D4 D8 30 97 BE
  214.         19 01
  215.        )
  216.    CHAR-FONT-LIMIT "~S redefines the constant ~S. Its old value was ~S."
  217.    (DEFCONSTANT CHAR-FONT-LIMIT 16.) WARN 16.
  218.   )
  219. #Y(#:TOP-LEVEL-FORM-31
  220.    #26Y(00 00 00 00 00 01 D4 84 63 09 D5 D6 D4 D4 69 51 2B 04 03 D4 D8 30 97 BE
  221.         19 01
  222.        )
  223.    CHAR-BITS-LIMIT "~S redefines the constant ~S. Its old value was ~S."
  224.    (DEFCONSTANT CHAR-BITS-LIMIT 16.) WARN 16.
  225.   )
  226. #Y(#:TOP-LEVEL-FORM-32
  227.    #26Y(00 00 00 00 00 01 D4 84 63 09 D5 D6 D4 D4 69 51 2B 04 03 D4 D8 30 97 BE
  228.         19 01
  229.        )
  230.    CHAR-CONTROL-BIT "~S redefines the constant ~S. Its old value was ~S."
  231.    (DEFCONSTANT CHAR-CONTROL-BIT 1.) WARN 1.
  232.   )
  233. #Y(#:TOP-LEVEL-FORM-33
  234.    #26Y(00 00 00 00 00 01 D4 84 63 09 D5 D6 D4 D4 69 51 2B 04 03 D4 D8 30 97 BE
  235.         19 01
  236.        )
  237.    CHAR-META-BIT "~S redefines the constant ~S. Its old value was ~S."
  238.    (DEFCONSTANT CHAR-META-BIT 2.) WARN 2.
  239.   )
  240. #Y(#:TOP-LEVEL-FORM-34
  241.    #26Y(00 00 00 00 00 01 D4 84 63 09 D5 D6 D4 D4 69 51 2B 04 03 D4 D8 30 97 BE
  242.         19 01
  243.        )
  244.    CHAR-SUPER-BIT "~S redefines the constant ~S. Its old value was ~S."
  245.    (DEFCONSTANT CHAR-SUPER-BIT 4.) WARN 4.
  246.   )
  247. #Y(#:TOP-LEVEL-FORM-35
  248.    #26Y(00 00 00 00 00 01 D4 84 63 09 D5 D6 D4 D4 69 51 2B 04 03 D4 D8 30 97 BE
  249.         19 01
  250.        )
  251.    CHAR-HYPER-BIT "~S redefines the constant ~S. Its old value was ~S."
  252.    (DEFCONSTANT CHAR-HYPER-BIT 8.) WARN 8.
  253.   )
  254. #Y(#:TOP-LEVEL-FORM-36
  255.    #18Y(00 00 00 00 00 01 D4 2D 01 D4 D6 C1 72 30 96 BE 19 01) DOSEQ
  256.    REMOVE-OLD-DEFINITIONS MACRO
  257.    #Y(DOSEQ
  258.       #121Y(00 01 00 01 00 08 39 01 AA 6A 63 D4 87 01 2D 80 5B 94 54 53 70 95
  259.             54 53 54 70 96 54 53 54 54 70 97 54 71 A8 5B AF 2F 64 3E 02 89 00
  260.             80 43 00 EA 36 01 6A A4 D7 5B D8 AB B1 73 02 73 01 D8 B3 C3 72 73
  261.             01 AF B5 DA 5B DB DC BA 73 01 B6 DD A3 72 73 01 6B 02 20 6B 02 1F
  262.             73 02 B3 73 04 B5 73 03 6B 02 20 6B 02 1F 73 03 59 03 19 0A AA 2D
  263.             01 19 03 D6 93 72 59 01 1A FF B6
  264.            )
  265.       2. MACRO-CALL-ERROR DECLARE BLOCK LET (NIL) MAP FUNCTION LAMBDA TAGBODY
  266.   )  )
  267. #Y(#:TOP-LEVEL-FORM-37 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
  268.    MEMBER1 REMOVE-OLD-DEFINITIONS
  269.    #Y(MEMBER1
  270.       #36Y(00 02 00 00 81 00 00 03 00 00 37 01 07 74 01 8A 01 05 1A 05 89 01 02
  271.            C1 EB D8 AA B0 6E 01 AF 99 35 02 19 07
  272.           )
  273.       :TEST :TEST-NOT :KEY #.#'IDENTITY #.#'MEMBER
  274.   )  )
  275. #Y(#:TOP-LEVEL-FORM-38
  276.    #26Y(00 00 00 00 00 01 D4 2D 01 D4 00 29 01 A8 2A 02 01 0B 00 00 EA 30 96 BE
  277.         19 01
  278.        )
  279.    UNION REMOVE-OLD-DEFINITIONS
  280.    #Y(UNION
  281.       #52Y(00 02 00 00 81 00 00 03 00 01 AE 83 B6 18 90 04 8B 07 AF 99 35 02 1B
  282.            11 8B 06 61 00 00 8C 08 B0 9A 35 02 55 19 07 97 19 07 61 00 00 8C 07
  283.            AF 99 35 02 19 07
  284.           )
  285.       NIL :TEST :TEST-NOT :KEY MEMBER1
  286.   )  )
  287. #Y(#:TOP-LEVEL-FORM-39
  288.    #26Y(00 00 00 00 00 01 D4 2D 01 D4 00 29 01 A8 2A 02 01 0B 00 00 EA 30 96 BE
  289.         19 01
  290.        )
  291.    NUNION REMOVE-OLD-DEFINITIONS
  292.    #Y(NUNION
  293.       #52Y(00 02 00 00 81 00 00 03 00 01 AE 83 B6 18 90 04 8B 07 AF 99 35 02 1B
  294.            11 AE 61 00 00 8C 08 B0 9A 6F 02 2F D2 19 07 97 19 07 61 00 00 8C 07
  295.            AF 99 35 02 19 07
  296.           )
  297.       NIL :TEST :TEST-NOT :KEY MEMBER1
  298.   )  )
  299. #Y(#:TOP-LEVEL-FORM-40
  300.    #26Y(00 00 00 00 00 01 D4 2D 01 D4 00 29 01 A8 2A 02 01 0B 00 00 EA 30 96 BE
  301.         19 01
  302.        )
  303.    INTERSECTION REMOVE-OLD-DEFINITIONS
  304.    #Y(INTERSECTION
  305.       #52Y(00 02 00 00 81 00 00 03 00 01 AE 83 B6 15 90 04 8B 07 AF 99 35 02 1B
  306.            0E 61 00 00 8C 07 AF 99 35 02 19 07 00 19 07 8B 06 61 00 00 8C 08 B0
  307.            9A 35 02 55 19 07
  308.           )
  309.       NIL :TEST :TEST-NOT :KEY MEMBER1
  310.   )  )
  311. #Y(#:TOP-LEVEL-FORM-41
  312.    #26Y(00 00 00 00 00 01 D4 2D 01 D4 00 29 01 A8 2A 02 01 0B 00 00 EA 30 96 BE
  313.         19 01
  314.        )
  315.    NINTERSECTION REMOVE-OLD-DEFINITIONS
  316.    #Y(NINTERSECTION
  317.       #52Y(00 02 00 00 81 00 00 03 00 01 AE 83 B6 15 90 04 8B 07 AF 99 35 02 1B
  318.            0E 61 00 00 8C 07 AF 99 35 02 19 07 00 19 07 AE 61 00 00 8C 08 B0 9A
  319.            6F 02 2F D2 19 07
  320.           )
  321.       NIL :TEST :TEST-NOT :KEY MEMBER1
  322.   )  )
  323. #Y(#:TOP-LEVEL-FORM-42
  324.    #26Y(00 00 00 00 00 01 D4 2D 01 D4 00 29 01 A8 2A 02 01 0B 00 00 EA 30 96 BE
  325.         19 01
  326.        )
  327.    SET-DIFFERENCE REMOVE-OLD-DEFINITIONS
  328.    #Y(SET-DIFFERENCE
  329.       #52Y(00 02 00 00 81 00 00 03 00 01 AE 83 B6 15 90 04 8B 07 AF 99 35 02 1C
  330.            0E 61 00 00 8C 07 AF 99 35 02 19 07 00 19 07 8B 06 61 00 00 8C 08 B0
  331.            9A 35 02 55 19 07
  332.           )
  333.       NIL :TEST :TEST-NOT :KEY MEMBER1
  334.   )  )
  335. #Y(#:TOP-LEVEL-FORM-43
  336.    #26Y(00 00 00 00 00 01 D4 2D 01 D4 00 29 01 A8 2A 02 01 0B 00 00 EA 30 96 BE
  337.         19 01
  338.        )
  339.    NSET-DIFFERENCE REMOVE-OLD-DEFINITIONS
  340.    #Y(NSET-DIFFERENCE
  341.       #52Y(00 02 00 00 81 00 00 03 00 01 AE 83 B6 15 90 04 8B 07 AF 99 35 02 1C
  342.            0E 61 00 00 8C 07 AF 99 35 02 19 07 00 19 07 AE 61 00 00 8C 08 B0 9A
  343.            6F 02 2F D2 19 07
  344.           )
  345.       NIL :TEST :TEST-NOT :KEY MEMBER1
  346.   )  )
  347. #Y(#:TOP-LEVEL-FORM-44 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
  348.    SET-EXCLUSIVE-OR REMOVE-OLD-DEFINITIONS
  349.    #Y(SET-EXCLUSIVE-OR
  350.       #29Y(00 02 00 00 81 00 00 03 00 00 90 03 AF AF 99 6F 02 90 03 AF B1 9A 6F
  351.            02 31 02 20 19 07
  352.           )
  353.       :TEST :TEST-NOT :KEY SET-DIFFERENCE
  354.   )  )
  355. #Y(#:TOP-LEVEL-FORM-45 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
  356.    NSET-EXCLUSIVE-OR REMOVE-OLD-DEFINITIONS
  357.    #Y(NSET-EXCLUSIVE-OR
  358.       #29Y(00 02 00 00 81 00 00 03 00 00 90 03 AF AF 99 6F 02 90 04 AF B1 9A 6F
  359.            02 31 02 21 19 07
  360.           )
  361.       :TEST :TEST-NOT :KEY SET-DIFFERENCE NSET-DIFFERENCE
  362.   )  )
  363. #Y(#:TOP-LEVEL-FORM-46 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
  364.    SUBSETP REMOVE-OLD-DEFINITIONS
  365.    #Y(SUBSETP
  366.       #35Y(00 02 00 00 81 00 00 03 00 00 AE 1A 0F 00 19 08 90 03 8B 01 B0 9A 35
  367.            02 1C 73 7A 00 A8 84 B6 70 02 19 08
  368.           )
  369.       :TEST :TEST-NOT :KEY MEMBER1
  370.   )  )
  371. #Y(#:TOP-LEVEL-FORM-47
  372.    #18Y(00 00 00 00 00 01 D4 2D 01 D4 D6 C1 72 30 96 BE 19 01) DOHASH
  373.    REMOVE-OLD-DEFINITIONS MACRO
  374.    #Y(DOHASH
  375.       #132Y(00 01 00 01 00 08 39 01 AA 6A 63 D4 87 01 2D 80 66 94 54 53 70 95
  376.             54 53 54 70 96 54 53 54 54 70 97 54 53 54 54 54 70 98 54 71 A8 5B
  377.             B0 2F 64 3E 02 89 00 80 47 00 EA 36 01 6A A4 D7 5B D8 AB B1 73 02
  378.             73 01 D8 B4 C3 72 B4 C4 72 73 02 AF B6 B6 DB DC DD BB BB 73 02 B6
  379.             DE A3 72 73 01 6B 02 20 6B 02 1F 73 02 B3 73 03 B6 73 04 6B 02 20
  380.             6B 02 1F 73 03 59 03 19 0B AA 2D 01 19 03 D6 93 72 59 01 1A FF B2
  381.            )
  382.       2. MACRO-CALL-ERROR DECLARE BLOCK LET (NIL) (NIL) MAPHASH FUNCTION LAMBDA
  383.       TAGBODY
  384.   )  )
  385. #Y(#:TOP-LEVEL-FORM-48 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
  386.    STRING-TRIM REMOVE-OLD-DEFINITIONS
  387.    #Y(STRING-TRIM #13Y(00 02 00 00 00 03 AA AB AB 2F 47 19 03))
  388.   )
  389. #Y(#:TOP-LEVEL-FORM-49 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
  390.    STRING-LEFT-TRIM REMOVE-OLD-DEFINITIONS
  391.    #Y(STRING-LEFT-TRIM #13Y(00 02 00 00 00 03 AA 5B AB 2F 47 19 03))
  392.   )
  393. #Y(#:TOP-LEVEL-FORM-50 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
  394.    STRING-RIGHT-TRIM REMOVE-OLD-DEFINITIONS
  395.    #Y(STRING-RIGHT-TRIM #13Y(00 02 00 00 00 03 5B AB AB 2F 47 19 03))
  396.   )
  397. #Y(#:TOP-LEVEL-FORM-51 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
  398.    %TIME REMOVE-OLD-DEFINITIONS
  399.    #Y(%TIME
  400.       #210Y(00 12 00 00 00 00 BA D4 D4 6A E9 BB 6A EF B2 D4 D4 6A E9 B3 6A EF
  401.             6B 01 34 B9 D4 D4 6A E9 BA 6A EF B1 D4 D4 6A E9 B2 6A EF 6B 01 34
  402.             B8 D4 D4 6A E9 B9 6A EF B0 D4 D4 6A E9 B1 6A EF 6B 01 34 B7 D5 D5
  403.             6A E9 B8 6A EF AF D5 D5 6A E9 B0 6A EF 6B 01 34 B6 AE 6B 01 34 36
  404.             01 2F 90 D6 36 03 2F 8E AC D7 6B 01 36 36 01 6A C3 36 0C 2F 85 D8
  405.             36 03 2F 8E 36 01 2F 90 D9 36 03 2F 8E AB D7 6B 01 36 36 01 6A C3
  406.             36 0C 2F 85 DA 36 03 2F 8E 36 01 2F 90 DB 36 03 2F 8E A9 36 0C 2F
  407.             85 DC 36 03 2F 8E A8 85 A7 07 AA 85 A7 03 00 19 18 36 01 2F 90 DD
  408.             36 03 2F 8E A8 36 0C 2F 85 DE 36 03 2F 8E AA D7 6B 01 36 36 01 6A
  409.             C3 36 0C 2F 85 DF 36 03 2F 8E 19 18
  410.            )
  411.       16. 24. "Real time: " #.INTERNAL-TIME-UNITS-PER-SECOND " sec."
  412.       "Run time: " " sec." "Space: " " Bytes" "GC: " ", GC time: " " sec."
  413.   )  )
  414. #Y(#:TOP-LEVEL-FORM-52 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
  415.    SLEEP REMOVE-OLD-DEFINITIONS
  416.    #Y(SLEEP
  417.       #44Y(00 01 00 00 00 02 A9 86 2F 1D A9 85 3D 19 A9 85 A8 15 A9 D4 87 01 2E
  418.            0D A9 D5 6B 02 35 36 01 6A CB 2F F1 19 02 1A 7E D6 D7 AB 5A 02
  419.           )
  420.       #.(FLOOR (EXPT 2. 31.) INTERNAL-TIME-UNITS-PER-SECOND)
  421.       #.INTERNAL-TIME-UNITS-PER-SECOND
  422.       "~S: argument ~S should be a nonnegative number" SLEEP
  423.   )  )
  424. #Y(#:TOP-LEVEL-FORM-53 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
  425.    UTAG REMOVE-OLD-DEFINITIONS
  426.    #Y(UTAG
  427.       #32Y(00 01 00 00 00 02 D4 D5 AB 6B 02 35 AB D6 6A C8 AC D7 6A C8 6B 00 34
  428.            AD D8 6A C8 31 05 33 19 02
  429.           )
  430.       -693901. 365. 4. 100. 400.
  431.   )  )
  432. #Y(#:TOP-LEVEL-FORM-54 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
  433.    JAHR&TAG REMOVE-OLD-DEFINITIONS
  434.    #Y(JAHR&TAG
  435.       #43Y(00 01 00 00 00 02 D4 D5 AB 6B 02 33 D6 6A C8 6B 02 33 A8 67 03 AB A9
  436.            88 01 2D 06 7D 01 14 2D 03 EA A9 AC AA 6B 01 34 3C 02 19 04
  437.           )
  438.       1900. -58. #10r146097/400 UTAG
  439.   )  )
  440. #Y(#:TOP-LEVEL-FORM-55 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
  441.    NONE-SOMMERZEIT-P REMOVE-OLD-DEFINITIONS
  442.    #Y(NONE-SOMMERZEIT-P #9Y(00 03 00 00 00 04 00 19 04))
  443.   )
  444. #Y(#:TOP-LEVEL-FORM-56 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
  445.    MET-SOMMERZEIT-P REMOVE-OLD-DEFINITIONS
  446.    #Y(MET-SOMMERZEIT-P
  447.       #43Y(00 03 00 00 00 04 D4 AC D5 31 02 2F 1E 1B D6 AB 6B 02 35 AA 6B 02 33
  448.            D7 D8 AE 31 02 33 57 14 8B 00 AA 8C 02 31 02 2F 19 06 19 04
  449.           )
  450.       1980. 2000. 24.
  451.       #((698. . 5065.) (674. . 5041.) (650. . 5017.) (626. . 4993.)
  452.         (578. . 5113.) (722. . 5089.) (698. . 5065.) (674. . 5041.)
  453.         (626. . 4993.) (602. . 4969.) (578. . 5113.) (722. . 5089.)
  454.         (674. . 5041.) (650. . 5017.) (626. . 4993.) (602. . 4969.)
  455.         (722. . 5089.) (698. . 5065.) (674. . 5041.) (650. . 5017.)
  456.         (602. . 4969.)
  457.        )
  458.       -1980.
  459.   )  )
  460. #Y(#:TOP-LEVEL-FORM-57
  461.    #20Y(00 00 00 00 00 01 D4 2F 5F D5 83 53 04 D5 D6 2F 56 BF 19 01)
  462.    (SPECIAL *DEFAULT-TIME-ZONE*) *DEFAULT-TIME-ZONE* -1.
  463.   )
  464. #Y(#:TOP-LEVEL-FORM-58
  465.    #21Y(00 00 00 00 00 01 D4 2F 5F D5 83 53 05 D5 90 02 2F 56 BF 19 01)
  466.    (SPECIAL *DEFAULT-DST-CHECK*) *DEFAULT-DST-CHECK* MET-SOMMERZEIT-P
  467.   )
  468. #Y(#:TOP-LEVEL-FORM-59
  469.    #23Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 D7 2D 01 D7 D8 30 96 C1 19 01)
  470.    ENCODE-UNIVERSAL-TIME REMOVE-OLD-DEFINITIONS
  471.    #Y(ENCODE-UNIVERSAL-TIME
  472.       #280Y(00 06 00 01 00 00 39 01 01 04 AE 86 35 80 FF D4 AF D5 88 02 2F 18
  473.             2C 02 3E 06 B4 D7 AA D8 B8 6B 02 34 D7 6A C9 6B 02 35 79 02 33 0C
  474.             16 06 D9 AF 88 01 2F 80 D9 AF 86 35 80 D4 DA B0 DB 88 02 2F 80 CC
  475.             AF DC 87 01 2D 80 B0 98 EC C8 14 B0 79 02 33 03 B0 86 35 80 B7 DA
  476.             B1 88 01 2F 80 B0 8E 08 DF 97 57 14 79 02 33 01 14 AB 67 0C 79 02
  477.             33 00 AB 24 0D 80 8C A8 8D 03 2D 0C 14 88 01 2D 80 8E B1 86 35 80
  478.             89 D4 B2 E2 88 02 2F 80 81 B2 86 35 80 7C D4 B3 E3 88 02 2F 80 74
  479.             B3 86 35 80 6F D4 B4 E3 88 02 2F 80 67 89 05 12 63 10 63 11 AC AC
  480.             B5 34 03 1B 80 54 BE 14 79 01 34 05 AD 86 38 04 AD 78 C4 05 AD 85
  481.             35 0D AD 86 37 80 41 E6 AE 6B 02 35 86 35 39 E7 AE DB 88 02 2F 32
  482.             B3 E9 B4 E9 B5 B2 5D 16 AF 6B 02 35 6B 03 33 6B 02 35 6B 02 33 6B
  483.             02 35 31 02 33 19 0C AE 78 AC 02 C7 1A FF 4B A9 DF AD 30 AB 57 1A
  484.             FF 70 C4 1A FF A9 E8 B1 B1 B1 B5 B7 B9 B4 5A 07
  485.            )
  486.       0. 99. GET-DECODED-TIME 100. 50. 1900. 1. 12. 3. 9. -3.
  487.       #1=#(0. 31. 61. 92. 122. 153. 184. 214. 245. 275. 306. 337.) UTAG 11. 23.
  488.       59. *DEFAULT-TIME-ZONE* *DEFAULT-DST-CHECK* 3600. -12.
  489.       "incorrect date: ~S.~S.~S, ~Sh~Sm~Ss, time zone ~S" 60. 24.
  490.      )
  491.    DECODE-UNIVERSAL-TIME
  492.    #Y(DECODE-UNIVERSAL-TIME
  493.       #173Y(00 01 00 01 00 08 39 01 01 02 89 03 80 8C 0E 00 ED AC D5 AD 6B 02
  494.             35 36 01 6A CB 6B 01 34 A8 D5 6A C8 D6 30 C8 3E 02 A9 2D 03 3E 02
  495.             63 04 AA AA AD 34 03 16 05 EB AB 89 02 80 66 C4 14 79 01 34 00 AC
  496.             D5 AA 6B 02 35 36 01 6A CB 6B 01 34 A8 DB 30 C8 3E 02 A9 DB 30 C8
  497.             3E 02 A9 D6 30 C8 3E 02 A9 2D 03 3E 02 DC DD AA 6B 02 35 6B 02 33
  498.             DE 6A C8 A9 DF 94 57 14 6B 01 34 6A AB A9 E0 87 01 2D 24 E2 AA 79
  499.             02 33 01 7C 03 B0 AF AE AB AD B0 B3 E3 6A CC BB 5E 16 3C 09 19 10
  500.             74 01 95 EA 1A FF A0 C3 1A FF 97 E1 AA 79 02 33 01 1A 5C
  501.            )
  502.       *DEFAULT-TIME-ZONE* 3600. 24. JAHR&TAG *DEFAULT-DST-CHECK* 1. 0. 60. 2.
  503.       5. 153. #1# 10. 3. -9. 7.
  504.   )  )
  505. #Y(#:TOP-LEVEL-FORM-60 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
  506.    GET-DECODED-TIME REMOVE-OLD-DEFINITIONS
  507.    #Y(GET-DECODED-TIME #12Y(00 00 00 00 00 01 69 EE 2D 00 19 01)
  508.       DECODE-UNIVERSAL-TIME
  509.   )  )
  510. #Y(#:TOP-LEVEL-FORM-61 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
  511.    CONCAT-PNAMES REMOVE-OLD-DEFINITIONS
  512.    #Y(CONCAT-PNAMES
  513.       #45Y(00 02 00 00 00 03 AA 69 4E AA 69 4E 6B 02 13 A8 6A 63 86 A7 07 A8 D4
  514.            69 34 23 01 07 A8 36 01 2F FC 19 04 A8 D6 36 01 6A 61 63 03 1A 72
  515.           )
  516.       0. #\: 1. *KEYWORD-PACKAGE*
  517.   )  )
  518. #Y(#:TOP-LEVEL-FORM-62 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
  519.    DEFAULT-DIRECTORY REMOVE-OLD-DEFINITIONS
  520.    #Y(DEFAULT-DIRECTORY #12Y(00 00 00 00 00 01 36 01 30 21 19 01))
  521.   )
  522. #Y(#:TOP-LEVEL-FORM-63
  523.    #26Y(00 00 00 00 00 01 D4 84 63 09 D5 D6 D4 D4 69 51 2B 04 03 D4 D8 30 97 BE
  524.         19 01
  525.        )
  526.    *DATE-FORMAT* "~S redefines the constant ~S. Its old value was ~S."
  527.    (DEFCONSTANT *DATE-FORMAT*
  528.     #1="~1{~5@*~D/~4@*~D/~3@*~D ~2@*~2,'0D.~1@*~2,'0D.~0@*~2,'0D~:}"
  529.    )
  530.    WARN #1#
  531.   )
  532. #Y(#:TOP-LEVEL-FORM-64 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
  533.    DIR REMOVE-OLD-DEFINITIONS
  534.    #Y(DIR
  535.       #28Y(00 00 00 01 00 07 37 01 02 BE EB A9 85 34 06 A9 BF 32 3A 19 02 D5 AA
  536.            31 00 19 1A 76
  537.           )
  538.       ("*.*\\" "*.*")
  539.       #Y(LISP::DIR-ONEDIR
  540.          #38Y(00 01 00 00 00 02 A9 5C 6A 20 D4 A9 87 00 26 0F 5C D9 AA D6 C4 14
  541.               36 02 6A 83 2B 03 04 19 03 5C D5 AA D6 C1 1A 6F
  542.              )
  543.          #.#'ATOM "~{~%~A~}" #.#'STRING< #.#'NAMESTRING FORMAT
  544.          #.(CONCATENATE 'STRING "~:{~%~0@*~A~40T~3@*~7D~52T~2@*~21<"
  545.             *DATE-FORMAT* "~>~}"
  546.            )
  547.          #Y(LISP::DIR-ONEDIR-1 #14Y(00 01 00 00 00 02 8B 01 36 01 30 1A 19 02))
  548.   )  )  )